home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / game / role / CTW10d.lha / CTW / scripts / General / Scenic_1.script < prev    next >
Text File  |  1997-09-02  |  500b  |  39 lines
  1. SET @WALKLOOP 0|
  2. SET @SPEED 3|
  3. SET @TIMEWAIT 800|
  4. TIMER @TIME|
  5. MATH @TIME + @TIMEWAIT|
  6. :LOOP|
  7. ONGOTO 0 @WALKLOOP WN WS WE WW|
  8. :RTLOOP|
  9. TIMER @CHKTIME|
  10. IF @CHKTIME > @TIME WALKFIX|
  11. GOTO LOOP|
  12.  
  13. :WN|
  14. WALK 0 @SPEED|
  15. GOTO RTLOOP|
  16.  
  17. :WS|
  18. WALK 1 @SPEED|
  19. GOTO RTLOOP|
  20.  
  21. :WE|
  22. WALK 2 @SPEED|
  23. GOTO RTLOOP|
  24.  
  25. :WW|
  26. WALK 3 @SPEED|
  27. GOTO RTLOOP|
  28.  
  29. :WALKFIX|
  30. RND @WALKLOOP 3|
  31. TIMER @TIME|
  32. MATH @TIME + @TIMEWAIT|
  33. GOTO LOOP|
  34.  
  35. :TOUCH|
  36. [ "The view from up here is magnificent!"|
  37. [ "I can see all of the colony."|
  38. GOTO LOOP|
  39.